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D DOD 
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| **F ILE**1D**BADBLOCKS 8 
BBBBBBBB AAAAAA DDDDDDDD 88888888 LL 000000 cccccccc KK KK SSSSSSSS ; 
BBBBBBBB AAAAAA DDDDDDDD BBBBBBBB LL 000000 CcCcccccc KK KK SSSSSSSS ; 
68 BB AA AA 0D DD 88 BB LL 00 oo ¢C KK KK SS : 
BB BB AA AA 0D D 88 BB LL 00 oo CC KK KK SS ; 
BB BB AA AA 0D DD 8B BB LL 00 00 CC KK KK SS : 
BB BB AA AA 0D DD 688 BB LL 00 oo CC KK K SS : 
BBBBBBBB AA AA 0D DD 88888886 LL 00 oo CC KKKKKK SSSSSS : 
AA AA 0D DD 88886868 Lu 00 oo CC KKKKKK SSSSSS : 
BB BB AAAAAAAAAA 0D DD 88 BB LL 00 00 ¢C KK K S$ ; 
BB BB AAAAAAAAAA DD DD 88 BB LL 00 oo CC KK KK $$ : 
8B BB AA 0D DD 6B BB LL 4 00 CC KK KK SS eeee : 
BB BB AA AA 0D DD 88 BB LL 0 oo cc KK KK Ss eeee : 
BBBBBBBB AA AA DDDDDDDD BBBBBBBB LLLLLLLLLL 000000 cccccccc KK KK S$SSSSSSS cece : 
BBBBBBBB AA AA DDDDDDDD BBBBBBBB LLLLLLLLLL 000000 ccccccce kK KK SSSSSSSS cove : 
LL III1II SSSSSSSS : 
LL HII! SSSSSSSS : 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL Il SS 
LL I] SS 
LELLLLLLLL 111111 SSSSSSSS 
LLELLLLLLLL HI] SSSSSSSS : 
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12-808- 1986 $788 :35 YBAD.SRE BADBLOCKS.832; ” (1) V 

1 MODULE badblocks(2TITLE anol rge(nedie Bad Block Manipulation Procedures’ 3 

0 § IDENT = ‘*V04-000') = ; 

0 i BEGIN : 

5 i eeeeererereereeereeereneeeeeneeereeeeeeeereteteeeeeeeeneeeeeereneeeeeeneeeee : 

'@ & Py 

809 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 

008 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 3 

484 :* ALL RIGHTS RESERVED. * 3 

: * 3 

0011 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * $ 

b3ig '@ ONLY IN ACCORDANCE WITH THE T F SUCH LICENSE AND WITH THE * 3 

1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 

0014 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 

0015 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 

B38 i: TRANSFERRED. ® 3 

: * F 

0018 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 

0019 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 

+434 CORPORATION. ’ : 

00 ¢ ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 

4 Z * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 

* . 

0025 1 i . ; 

0036 PROPER ARERR AEAAAERAAREAARAEAAETERE EATER AREA AAAREEEEERRARERARAREEAEAERE 3 

1 . 


' 

Faclity: 
Analyze/Media 
Abstract: 


This module contains the procedures required to handle bad block 
processing for last track and non-last track devices. 


Environment: 
VAX/VMS User Mode, Non-Privileged 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; Author: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


SOSCOCSOOCSCOCOCOCOCOOoCooooSoo 
FWP O CONOU EWN OOM 


ARAMAMARE FRR BEE ESE FAWN winonore 


Michael T. Rhodes, Creation Date: July, 1982 
Modified By: ‘ 


v03-002 MTROOO7 Michael T. Rhodes _ 19-May-1983 : 
Fix ‘bad$init_buffers’ to protect against boundary condition 
when three patterns are specified. 


v03-001 MTROOO1 Michael T. Rhodes 15-Dec-1982 
Modify routine ‘bad$init_buffers’ to use upto an octaword 

of user pune ies test pattern. The ‘pattern’ is located 

in the ‘bad$gl_bad_term’ data vector, with the number of 


NA AE WR OOD NOAUE WO OR NOU EWN OOO NOU EWN (OOO NOU WN @OUWONOUS WR 
SOCSOSCSS 


a ec ce ee ce ee ee ee ee ee ee ee ce ee ee ee ee ee ee ed ee ee ee ce ce el ce el el ee el el ee cel ee eel eel eel el ce el eel eel el eel el ee eel eel ee 


PUPP ES BS BS BS EB EE BEHIND PPO POPUPNPONY 2 es 


COOCOCOOCOOOOCOOOOOSOOOOOOSOSOOOSOSOSOSSoOO 


NOUSWN-OOOnNOu 
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vive 4 oe ses eee he $7 :80593 EAD Se doAserocKs 632, a9? nh NV 

38 0058 1! long word elements described in bad$gb_term_count. ; 
$B 


eee ooo 
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BADBLOCKS Analyze/Media Bad Block Manipulation Procedures bate -1984 23:36:34 AX-11 Bliss-32 V4.0-74 Pa 3 
‘ott Bad Block hd Format’ specifications 1h-8e9-19 4 $9530 :35 EBAD.SRC BADBLOCKS .832; td (2) 
3 $¢ ! RSBTTL "Bad Block Information Format Specifications’ 

: 64 1 i 

3 665 1: This utility supports bad block information in two formats “‘last track’’ and 
3 $8 5 1! “non-last track’. A last track device is one in which the bad block 

ar 1! information is located on the Last physical tre k of the device and is the 
; 68 1 ! default for ALL devices containing more than 4 $ blocks. Any device which 
: +4 4 1! falls outside of this catepery (ie. less than 4096 blocks) will be deemed a 
5 0 1 ! non last track device. A Block is defined as 512 bytes which | actually 
; 71 070 1 ! be made up of one or more physical sectors. The devices are analyzed in a 
3 ie 0071 1 ! standard fashion, which is to write one or more test patterns onto the media 
$ 7 por¢ 1! followed b reading and so bh these patterns against the test pattern 

; 74 73 1! buffer. The bad block information will be written to the software detected 
3 75 74 1! bad block area (for last track devices it is written on the Last track 

: 76 075 1! son every the manufacturers detected bad block file and on non Last track 

3 77 6 1 ! devices it is located on the last good block on the device) following the 

3 re oh) ; : analysis. 

3; & 8078 1 ! NOTES: 1. In either case (last track or non-last track) the size of 
3 3 4 : } the bad block files are a constant of 512 bytes. 

3 83 44-44 1! 2. The MDBSF is redundantly recorded on the first 10 blocks of 
>; 84 0083 1! the last track, with the SDBSF recorded on the remaining 
3; 89 0084 1! blocks of the [ast track. The MDBSF is not modified in any 
: 686 0085 1! way nor are the first ten sectors of the last track. 

. > iv OoRe 1! 

: 688 087 1! . 

3 34 ait: : FORMAT of Last Track Bad Block Information: 

s 6 0090 1 !{alias: The Manufacturers Detected Bad Sector File (MDBSF) 

3 4 ad ! } and the Software Detected Bad Sector File (SDBSF)) 

3; 94 0093 1! 31 0 

3 95 0094 1 ' Ce eons oe ors + 

; 0095 1! : Cartridge Serial Number : 0 

oar 0096 1! : : 

3 98 0097 1 ' be oer w ance ere moe] $wmen rn ewmon ern ecn en a 

3; WW 0098 1! | Cartridge | Not Used 1 4 The Cartridge Identifier word 
; 100 0099 1! | Identifier ' ' contains ail: ; 

$ 101 0100 1 ' ¢eeccece Goeeececn $eeeececn ecesecce + O's o Data Cartridge ; 

3 106 0101 1! : Track | Sector: Cylinder : 8 1's = Alignment Cartridge 

3; 10 B16 1! : : } i 

g 104 10 4 ' fo ee ce ee ee emt 

: 105 ioe 1! : : : } : ' 

: 108 O106 1 jaameepieel 

3 4 toon ean em temo meme we weoacann weer ee + 

; 108 107 1! i @e§% 2 #2 4 - 1 : 251. 

; 109 108 1! H : ' ; 

3 110 109 1 ' gem oenn en mow mec ae berm ecm ne meee ne + : 

3 TTT 0110 1! Note that this format implies 
3 is atts 3 that no more than 126 sectors 
3; ig ‘S can be bad! 

3; 114 0113 1 | 

> gs 0114 1 !<- 


fp 
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venga 


1 


—— — 


1 
1 
1 
1 
1 
at 
1 
1 
1 
1 
1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
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Pe Se Be Se Se Se Se Se Ge FH Oe Se Se Se FH Ss Se Se Se Se Ss Ss Se Ss Se Se Gs Se Se Se Ge Se Ss Os Se Se Ge 
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++ 


on Format Specifications 


14-Sep-1984 


BAD. SRC JBADBLOCKS.B 


i FORMAT of Non-Last Track Bad Block Information: 


bea e ee ae 

| Desc : Desc : Addr : Count : 0 
| Avail | Used tFLd Sizifld Siz! 
Femwoowe}owwooon}oocooon} cocccen} 

| Low Order LBN : —— v h 4 
H + Count : 
tesnncenncnnnnnntanenreagensnenss ; 
(ucmsmasesaeum@uccnaseguanananes ; 
0 0 0 tt 
ee ee ee i 
| Checksum of {| Not Used : 251. 


‘Bad Block Info : ' 


gee ewe ween emo e peor nmr mera earn} 


NOTE: Only 126 entries are initially available in the buffer due to 
the overhead of the header and Checksum information. 


Field Definitions: 


count Fld Siz 
Addr Fld Siz 
Desc Used 
be Avail 
High LBN 
my Count 
Low Order LBN 
Checksum Bad Block Info 


Size of the Block count field in - teen 

Size of the Address field in bytes 

Number of descriptors used for bad’ blocks. 
Number of descriptors available. 

High order byte of the Logical block Number. 
Number of bad blocks in this s 

Low order portion of the Lo itst “Block Number. 
Check sum of the bad block information. 


— 
ww 


ee ee ee el el el el ce ce ee ce ee el ee ee ee ee ee ee a ed ed ee ee ee 


SSSSLSSRSS SS SSSSPP AS LESSLS ARAN S Sa N AN ISSRAS POR IS SENS 


! 
Define message codes... 
EXTERNAL LITERAL 

ba 


& bfovf, 
bad$_dupblknum, 


CGOOOOOOSOCSOSOSOOOSOCOOCOCOSOSOSOOQOOOSOOCOoOOCOOSoOO 


AAANAAAANAINANNNNNNNNAANAAANAI AA nonon 


ROPOPOPOPONONRY 2 tt Oo 


NAVE UNO OONOULS WMO 


§ 14 
on Procedures 15-Sep-19 


: REF SBBLOCK, 
: REF SBBLOCK, 


: BYTE, 


Analyze/Media Bad Block Manipulati 
Declarations 14-Sep-19 
L ¢ } TSBTTL "Declarations’ 
, ¢ : Include files: 
156 1 REQUIRE ‘Lib$:baddef'; 
8 : LIBRARY ‘SYSSLIBRARY:L1B'; 
8 1! 
ie : } Table of Contents: 
81 1 FORWARD ROUTINE 
B¢ 1 bad$check_(itk : NOVALUE, 
1 bad$check nit : NOVALUE, 
84 1 bad$cvt_lfk_long : NOVALUE, 
85 1 bad$cvt_nit_long : NOVALUE, 
86 1 bad$cvt_phy_log, 
87 1 ad$Sinit_buTfers : NOVALUE, 
88 1 check_for_bLk0 : NOVALUE, 
89 1 cvt_t0g_phy. 
0290 1 gvt_ Long nit : NOVALUE, 
0291 1 insert_blocks : NOVALUE, 
0 3 1 lLookup_bad; 
02935 1 
9% «1! 
95 1 ! Private Storage 
1! 
3 1 BIND 
98 (1 mdbsf = SDESCRIPTOR ("MDBSF') : S$BBLOCK, 
+4 : sdbsf = SDESCRIPTOR (‘SDBSF*) : $BBLOCK; 
01 1! 
og : } External references: 
04 1 EXTERNAL 
05 1 bad$gl_bad_term : VECTOR (C4, LONG), 
5] 1 bad$gb_block_fact : BYTE, 
07 1 bad$gl_chan, 
08 1 bad$gl_context : Bi Tyec toe (32) 
09 1 bad$ga_bufadr : VECTOR C2, LONG), 
1 bad$ga_device : SBBLOCK Cdsc$c_s_bin], 
' bad$ga_ input desc : SBBLOCK Cdsc$c_s_bin], 
a 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


$3: 36:38 re Bliss-32 V4.0-74 


ee ee ee ee ee ee 


Page 5 


AD.SRCJBADBLOCKS .B32; (4) 


Define BAD's structures. 
Define VMS structures. 


Check last track device for a user supplied entry. 
Check non last track device for a user supplied en 
Convert last track format to longwords. 

Convert non last track format to longwords. 
Convert Physical address to logical. 

Initialize the contents of the data buffers. 

Check block number for block 0. 

Convert Logical address to Physical. 

Convert sonquaces to non last track format. 

Insert the indicated bad blocks into the SDBSF. 
Look up specified block in the Bad Sector files. 


Information vector. 

Number of sectors per block. 

Channel number for device. 

Global control context flags. 

Address of data transfer buffers. 

Address of device name descriptor. 

Address of general purpose input descriptor. 

0 function code for $010. 

Address of the Manufacturers Detected Bad Sector F 
Address of the Software Detected Bad Sector File. 
Pointer to the first available entry in the SDBSF. 
Number of sectors per track. 

Number of elements in bad$gl_bad_term. 

Address of the Test Pattern Buffer. 

Number of tracks per cylinder. 

Number of bytes per transfer. 


Bad block file overflow. 
Duplicate block number. 


a a chan aa at qentncehenS pt te -198e 47:50:38 EBAd- Smt doaseLock$.030;4 tne 


pods s-feoderr. ! Read err 
| re : ae rce | ne. 
5 | be age writeerr; ! Write error. . 
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04 badScheck_itk <= Check Last Track bad block inf 14-Sep-19 1:54:22 BAD. SRC JBADBLOCKS .832; 


3 27 ¢ 1 ZSBTTL ‘badScheck_ltk -= Check Last Track bad block information’ 

; 18 ? ! GLOBAL ROUTINE bad$check_ltk (lobound, hibound) : NOVALUE = 

; 220 ; 

3 1 ! Functional Description: 

; § 3 : : Check Last track bad block information files. 

; 5 0 40 1 ! NOTE: ‘*Lobound’’ and “‘hibound’’ are specified in Lbn form. 

: $ ;) eo These values will be converted by ‘‘lookup_bad’’ into 

3 0 tg 1! the appropriate formats for last track or non Last 

3 8 8 1! track information. 

; 9 44 1! 

3 0 0345 1! Inputs: 

; 1 0 rf] 1! 

; 0347 1! Lobound val the lower bound block number to Look up. 

; 3 $3c9 i hibound l h bound block b Look 

3 } oun va the upper boun ock number to loo ° 

: 335 0350 1 | “i = 

; $3 tet : } Side Effects: 

3; es $333 1! Any block(s) that are not found in either the MDBSF or the SDBSF, 

; 239 0354 1! will be added to the SDBSF via a call to “‘insert_blocks’’. 

; 240 0355 1! 

; 241 B38 1 !<- 

H stg 035 BEGIN 

; 26 0358 LOCAL 

3; 2446 0359 ltentry; 

3: 245 0360 

; “8 0361 check_for_blkO (Lobound); : ! If block 0 is bad, flag it. 

; ste 9306 enn eer FROM .lobound TO .hibound DO } Lore wtecs Je sat ia the J 
5 : or as they exis 

3 ak: 0364 IF NOT lookup_bad (.entry, .bad$ga_mdbsf) ' then enter this block Into 

; $20 tre i og _ — ae the first 

3 ! free entry pointer. 

3 $26 0367 4 IF NOT lookup_bad (.entry, .bad$ga_sdbsf) +9 

3 $2 0368 4 THEN 

3 See $344 4 insert_blocks (.entry, 0) ! Insert the current block. 

; 256 0371 4 If .bad$gl_context Cctx_v_init] ! Only display duplicate block number xxxxx, 
3 gor 0378 4 T ! messages during the initialization phase. 
3 38 O37 : SIGNAL thedd cepb than, 2. ! Informational message. 

3 -entry, 

: 560 0575 4 sdbsf. 

; 261 0376 4 bad$_srclin, 1, bad$ga_input_desc); 

3 $e $e 4 4 END 

; 378 ELSE , 

; 264 0379 IF .bad$gl_context Cctx_v_init] ! Only display duplicate block number xxxxx, 
3 2? 0380 THEN ! messages during the initialization phase. 
3 66 oan, SIGNAL (bods dupbthnun. a ! Informational message. 

3 -entry, 

; 268 0383 mdbsf, 

: 269 0384 bad$_srclin, 1, bad$ga_input_desc); 

; 270 tH END; 

3; eri 386 END; ! of GLOBAL ROUTINE bad$check_(tk 


— 


i a i a 


a 


re 


14 
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You-00o badScheck_ltk <= Check Last Prack bad block inf 12-808-}9he $730 :35 YBAD.SRE ADBLOCKS .832; — (sf 
«TITLE BADBLOCKS Analyze/Media Bad Block Manipulation 
3 rocedures 


-IDENT \V04-000\ 

-PSECT SPLITS,NOWRT ,NOEXE,2 
9! P.AAB: .ASCII \MDBSF\ : 
08 P.AAA: .LONG : 
0 RESS P.AAB 
10 P.AAD: .ASCII \SDBSF\ : 
1 -BLKB 
1 
1 


46 53 42 44 4D 


0 
46 53 42 
0 - LONG 

0 «ADDRESS P.AAD : 
MOBSF = P.AAA 


SDBSF= P.AAC 
-EXTRN BADSGL_BAD_TERM 
-EXTRN BAD$GB_BLOCK_FACT 
CONTEXT 


BADSGL_ CHAN, BADSGL 
eEXTRN BADSGA_BUFADR, BADSGA_DEVICE 
-EXTRN BADSGA_INPUT_DESC 


BADSGL-FUNC, BADSGA_MDBSF 
“EXTRN BADSGA-SDBSF, BADSGC_SDBSF_PTR 
-EXTRN BADSGL-SECTORS, BADSGB_TERM_COUNT 
" A * BADSGL_TRACKS 
-EXTRN BADSGL~TRNSFR_CNT 

BADS_BEFOVF, BAD$_DUPBLKNUM 
se BADS-READERR, BADS_SRCLIN 
-EXTRN BADS_WRITEERR 
-PSECT $CODE$,NOWRT,2 
.ENTRY BADSCHECK_LTK, Save R2,R3 
M #BADS_SRCCIN, R3 


LOBOUND 
CALLS #1, CHECK FOR BLKO 
SUBL3 #1, LOBOUND, ENTRY 


1$: PUSHL — BADSGA_MDBSF 
CALLS #2, LQOKUP_BAD 
PUSHL BADSGA_sDBSF 

a2, LQOKUP_BAD 

RO, 2$ 

CLRL Os = (§P) 
ENTRY 

CALLS #2, INSERT_BLOCKS 

BR 5 


2s: BBC #4, BADSGL_CONTEXT, 5$ 
PUSHAB BADSGA_INPOT _DESC 


0 
0 


00 
53 000000006 
04 


0000v CF 
04 AC 


ooo 


52 
00006 

0000v CF 
00006 


COoOoOoooooooo 
COOOCOSoCoCoCoooooo 


0000v CF 
08 


BEE SSS Sena R BRS 
—OWouUn"o OO POWMOOA—O OPM 
on 
-> 
or 
wr 
wn 


0000v CF 


31 00006 
00006 


0000° 


MFA FS NINIM ONMM MON MMOH 
O99 OM "OOMOOM "OO -On"OISo 
299 1 99 fF OWOCT OWI -ww"oOMm 
SOOooooooooooooooooooooooo 
Pe Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Be Be Se Bee 


MRANOOOWOUNMNOVIN NOVI NOOO } Co 


SooooooooSo 
SoOoooooooco: 


R3 
PUSHAB SDBSF 
at 


BADBLOCKS Analyze/Media Bad Block Manipulation Procedure £8 - Ax-11 
| vos bad theck. tk == Check Last Prack bad block i int Sleorass x 73 3: 33 YBAD. bao) 
1D 0000G CF 04 §} 00 : 3$: 6BC #4, BADSGL ete 5$ 
00006 CF 9F PUSHAB BA ADSGA_INPOT_D 
1 OO PUSHL 
3 po O0SF PUSHL 4 
0000° gf F 00061 PUSHAB MDBSF 
DD 00065 4$: PUSHL ENTRY 
DD 00067 PUSHL #2 
00000000G 8F DD 00069 PUSHL ayes DUPBLKNUM 
000000006 99 7 Fe O06F CALLS LTBSSIGNAL 
9D 08 Ac 3 0076 5$: AOBLEO HIBOUND, ENTRY, 1$ 


; Routine Size: 124 bytes, Routine Base: S$CODE$S + 0000 


; 272 0387 1 


i 6. 
biserocks 93¢ 


—_-___—_—- - - -— - > er ee ee — —E 
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y0e~000 badScheck nit <= Check Non Last Track bad block 12-800-1986 $7:30:33 YBAD -SRCIBADBLOCKS. 832: Se (6) 
: 274 1 ZSBTTL ‘badScheck_ nit <= Check Non Last Track bad block information’ 

: Le ! GLOBAL ROUTI bad$check_ nit (lobound, hibound) : NOVALUE = 

: 2? 91 1: 

; i 36 : : Functional Description: 

F 30 hy : Check for prior bad block information for non Last track devices. 

3; 8 36 1 ! NOTE: “‘Lobound"’ and “‘hibound” are specified in lbn form. 

; 28 ~ Se These values will be converted by ‘‘lookup_bad"’ into 

> 2846 98 1! the appropriate formats for last track or non Last 

; 285 +4 : : track information. 

3 ey ot : Inputs: 

: 4 bc08 ; Lobound val the lower bound block number to Look up. 

3 4 ot ; hibound val the upper bound block number to look up. 

; 2g hid 1 ! Side Effects: 

3 Soe 0408 1! 

; 295 0409 1! Any block(s) that are not found in the SDBSF, will be added via 

; 2% 0410 1! a call to “insert_blocks”’. 

; 297 0411 1! 

; 298 edt 1 !-- 

; 299 041 BEGIN 

; 00 0414 LOCAL 

; 301 0415 count, 

; geig next, 

; 041 nltentry, 

; 304 0418 start_block; 

; $02 0419 

3 0420 check_for_blkO (lobound); ! If block 0 is bad, tag it. 

3 4 oh} wan ee FROM .lobound TO .hibound DO ! Look for each block individually. 

3 309 0438 IF NOT lookup_bad (.entry, .bad$ga_sdbsf) ! Look for the low bound Lbn. : 

; 310 0424 3 THEN ' If it was NOT found, then save the starting block 
3 31} 0425 4 BEGIN : number and count the number of interveining blocks 
3 i 0426 4 count = 0; ! on file to the next block recorded. 
3; 31 0427 4 next = start block = .entry; ; 

3 (314 0428 4 INCR next_entry FROM .entry + 1 TO .hibound DO 

s 515 494 5 BEGIN 

; 316 0430 5 IF NOT lLookup_bad (.next_entry, .bad$ga_sdbsf) 

3 317 ott : THEN 

: 318 4 § count = .count + 1 

: 329 Oc3a i 

3 Sey 0435 6 IF .bad$gl_context Cctx_v_init] ! Cnly display duplicate block number xxxxx, 

s mee 0636 6 ' messages during the initialization phase. 

3 Ses 0437 6 SIGNAL (bad$_dupblknum, 2, ! Informational message. 

3; 324 438 6 -next_entry, 

3 we? 39 6 sdbsf, : 

; $ 40 6 bad$_srclin, 1, bad$ga_input_desc); hee 

3 41 6 next = .next_entry; T Remember the “‘next’’ block number to check. 

Be hee pyre 

3 0 0444 next = .next_entry; ! Remember the “‘next’’ block number to check. 


SF 
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y0e- 005 badScheck.nlt =- Check Non Lost Track bad block 122808- 1986 #7 :30:33 {BAD .SRC BADBLOCKS.832; ts 


1 45 & $ 
§ $ 4 entry = .next; 
47 & insert_blocks (.start_block, .count); 
4 END 
5 ELSE 
04 
04 
04 
3s 
4 


Update the ‘‘next’’ block number to check. 
Add the new bad blocks to the List. 


A -bad$gl_context Cctx_v_init] 
SIGNAL (bad$_dupblknum, 2, 
entry, 


Only display the dupliacte block number xxxxx, 
messages during the initialization phase. 
Informational message. 


sdbsf, 
END: bad$_srclin, 1, bad$ga_input_desc); 
END; |! of GLOBAL ROUTINE bad$check_nit 


Wr—Of 


03FC 00000 -ENTRY BADSCHECK_NLT, Save R2,R3,R4,R5,R6,R7,RB,RO ; 

59 0000000 00 9€ 00002 MOVAB LIBSSIGNAL, 3 

28 000000006 8F DO 00009 MOVL AD$_DUPBLKNUM, R8 : 

57 000000006 8F DO 90019 VL WBADSSRCLIN, R? : 

AC 9F 0001 PUSHAB LOBOUN 3 

0000v CF 01 FB OOO1A CALL #1, CHECK_FOR_BLKO 3 
53 04 AC 01 ¢3 0001F SUBL #1, LOBOUND, ENTRY : 
7E 11 00024 BRB : 

00006 CF DD 00026 1$: PUSHL BADSGA_SDBSF 3 

53 DD 0002A PUSHL RY : 

0000v CF 02 FB 900¢¢ CALLS #2, LOOKUP _BAD 3 
55 50 €8 00031 BLBS RO, 8$ 3 

55 D4 00034 CLRL COUNT 3 

56 53 DO 00036 MOVL ENTRY, START_BLOCK : 

54 53 DO 00039 MOVL ENTRY, : 

52 53 pO 0003c MOVL ENTRY, NEXT_ENTRY 3 

35 11 0003F BRB : 

00006 CF DD 00041 2$: PUSHL BAD$GA_SDBSF : 

52 DD 00045 PUSHL NEXT_ENTRY : 

0000v CF 02 FB 00047 CALLS #2, COOKUP_BAD 3 
04 50 £8 0004C BLBS RO, 3$ 3 

55 D6 0004F INCL COUNT : 

20 11 00051 BRB $ : 

15 00006 04 gi 0053 3$: BBC #4, BADSGL_CONTEXT, 4$ : 
00006 CF 9F 00059 PUSHAB BADSGA_INPOT_DESC : 

91 bb 9050 PUSHL #1 3 

7 DD 0005F PUSHL 3 

0000" CF 9F 00061 PUSHAB SDBSF 3 

52 DD 00065 PUSHL NEXT_ENTRY : 

9 DD 00067 PUSHL # 3 

DD 0006 PU R : 

69 07 FB 006 CALLS #7, LIBSSIGNAL : 

54 ; D O06 4$ VL NEXT_ENTRY, NEXT : 

11 000 BRB 3 

54 2 0d0 00073 5$ MOVL NEXT_ENTRY, NEXT : 

C6 3g 08 AC F 0076 : AOBLEQ HIBOOND, NEXT_ENTRY, 28 ; 
5 24 D0 00078 7$: MOVL NEXT, ENTRY : 

5 DD 0007E PUSHL COUN : 

56 DD 00080 PUSHL START_BLOCK : 


BADBLOCKS Analyze/Media Bad Block Manipulation Proced 1 hae 6: AX-11 Bliss-32 v4.0 
“4 y pu n cedures 1386 $3: 3 38 8 2 


badScheck_nit -=- Check Non Last Track bad block 14 4-80-19 BAD. SRCJBADBLOCKS. g354 
0000vV CF 2 Ff 8 $ CALLS 58° INSERT_BLOCKS 
B 1 BRB : 
15 0000G CF 04 €1 9 8$: BBC BADSGL_CONTEXT, 9$ 
00006 CF 9F F PUSHAB GASSCA, INPOT_DESC 
1 DD 00 PUSHL 
7 0D 0009 PUSHL a 
0000' gf F 0009 PUSHAB SDBSF 
3 DD 00098 PUSHL _ 
9 DD 00090 PUSHL 
DD 0009F PUSHL i 
69 07 FB OOOA1 CALLS ‘ LIBSSIGNAL 
FF7B 53 01 08 AC F1 000A4 9S: ACBL IBOUND, #1, ENTRY, 1$ 
04 OO00AB RET 


; Routine Size: 172 bytes, Routine Base: S$CODE$ + 007C 


; «344 0458 1 


ase 


PAD AM IAN NIUIVT 


WR O DONA UES WN —OOONS 


SHISALS, 


Se Se Se Ge Fe Se Ge Ge Ge Ge Se Ge Se os Ge Ge BH Se Se Se Se Se Ge Se Se Ss Se Ge @eteee 


3; Routine Size: 


377 


15 
Analyze/Media Bad Block Manipulation Procedures Rte “1984 23:36:34 AX-11 Bliss-32 v4.0-74 Pa 13 
Conversion and Formatting routines 12-308- 198 $7 :30:33 YBAD.SRC BADBLOCKS.830:1 nes (7) 
459 1 ZSBTTL ‘Conversion and Formatting routines’ 
} GLOBAL ROUTINE bad$cvt_ltk_long (entry, sec, trk, cyl) : NOVALUE = 
1 i 
! } Functional Description: 
i | Convert last track entry to long words. 
: ; Inputs: 
$ ; entry val the last track entry to covert. 
4 : ; Outputs: 
138 1: sec adr the address of the longword to receive the sector number. 
7% «1! trk adr the address of the longword to receive the track number. 
otf : cyl adr the address of the longword to receive the cylinder number. 
0477 1 i-- 
gore BEGIN 
047 P 
80 entry : $BBLOCK, 
4E4 cyl : REF $BBLOCK, 
0482 trk : REF S$BBLOCK, 
Bee? : sec : REF $BBLOCK; 
begs cyl = entry Cltk_wicylinder); ! Gewwtocetocces +04 
86 etrk = .entry Cltk_b_trackJ; 'itrkisec! cyl ! 
ot f4 sec = entry itk=b7sectord; | town tewnteownnnnt 
0489 1 END; ! of GLOBAL ROUTINE bad$cvt_ltk_long 
0 00000 ENTRY BADSCVT_LTK_LONG, Save nothing : 0460 
10 BC 04 AC 3 Boobs MOVZWL ENTRY, SCYL : 0485 
oc 8«6«BC 07 AC A 0000 MOVZBL ENTRY*3, aTRK 3; 0486. 
08 06 AC 9A Bats MOVZBL ENTRY+2, @SEC ; 0487 
4 00011 RET 3; 0489 


18 bytes, Routine Base: S$CODES + 0128 


0490 1 


3 


—————————————- 


oc 


409 0521 


1 


| BADBL OF KS Analyze/Media Bad Block Renipuletton Procedures 15500-1984 $3: 36:38 AX-11 Bliss-32 V4.0-74 
V04- Conversion and Formatting routines 4-Sep-19 1:54:22 BAD.SRCJBADBLOCKS .832; 

: 8 $3) } GLOBAL ROUTINE bad$cvt_nit_long (entry, cnt, Lbn) : NOVALUE = 

: 381 498 1: 

3 &¢ 3¢ : } Functional Description: 

; 84 38 1/ Convert a non last track bad block entry into a pair of long words 

: 85 rp! ! : containing the count value and Logical Block Number. 

; 8 199 1 | Inputs: 

; 388 239 1! 

; 34 4 : } entry val the non last track entry to convert. 

; 391 0308 1 ' Outputs: 

3 4 32 1! 

3; 0505 1! cnt adr the address of f lLongword to receive the count of 

: 394 8208 1! sent teeus bad blocks. 

: 4 F444 : Lon adr the address of ; *tonguord to receive the logical block number. 

: 397 0509 1 i-- 

; 398 0510 BEGIN 

BEM ane 

3 en 

: 401 $318 i her SBBLOEK, 

; rt Bete (bn : REF $BBLOCK: 

: 404 0516 -lbn = .entry Cnit_b_highlbn] “16 OR ! Extract tne high order and 

; 405 0517 -entry Cnit_w_lowlbnj; i Low order portions of the Lbn. 

3 +58 B28 § .cnt = .entry Cnlt_b_sectorcnt); ' Extact the count. 

: 408 0520 1 END; |! of GLOBAL ROUTINE bad$cvt_nlt_long 


0000 00000 «ENTRY eee NLT_LONG, Save nothing 
50 AC 9A 00002 MOVZBL ENTRY, RO 
50 50 10 78 00006 ASHL #16, RO, R 
51 06 AC 3C OO00A MOVZWL ENTRY 2, R1 
BC 50 51 ¢9 90008 BISL3 RO, @LBN 
08 ac 05 AC 9A 0001 MOVZBL entarel, acnt 
04 00018 RET 


; Routine Size: 25 bytes, Routine Base: SCODE$S + 013A 


enn 


SOODNAOUE WN HOO ONOUES Wn 


WWARPOPOROPoNoPoNoNohy 2 S 2 SS Se 


Dt heh eke et ek ek ek eee le ee ed 
Wwe 


: 


0 
0 
0 
0 


3; Routine Size: 31 


3; 434 


0545 


15 
Analyze/Media Bad Block Manipulation Procedures 15-Sep-1984 $3:36:38 oye Bliss-32 V4.0-74 
Conversion and Formatting routines 14-Sep-1984 11:54: 8 


2 AD. SRCJBADBLOCKS .B32; 


GLOBAL ROUTINE bad$cvt_phy_log (sec, trk, cyl) = 


' 

! Functional Description: 

Convert Physical Address specification to Logical Block Number. 
! Outputs: 

i sec val the sector number 

‘ trk val the track number 

cyl val the cylinder number 

Routine Value: 

i 


The logical block number is returned as the value of the call. 

- 

BEGIN 

RETURN ((.cyl * .bad$gl_tracks + .trk ) * .bad$gl_sectors + .sec) / .bad$gb_block_fact; 


END; ! of GLOBAL ROUTINE bad$cvt_phy_log 


PPI) at et at et ot a 
o 


0009 00000 .ENTRY BADSCVT_PHY_LOG, Save nothing 
50 oc ac 00006 CF C5 00002 MULL3 BADSGL_TRACRS, CYL, RO 

50 08 AC CO 00009 ADDL2 TRK, R 

50 00006 CF C4 0000D MULL2  BADS$GL_SECTORS, RO 

50 04 AC CO 90012 ADDL 

51 00006 CF 9A 00016 MOVZBL BAD$GB_BLOCK_FACT, R1 

50 51 C6 0001B DIVL2 R1, RO 

04 O001E ET 


bytes, Routine Base: S$CODE$S + 0153 


1 


PF 
8 


euch 


4 
& 
4 
4 


>> 
—a 


FUFUSVSVSVSISIS 


DAMMIT 


DOSCOCOCSCOOODOODOOODOOOOOCOOCOCO 
MMA 
TON 
Wr ODONAARWNHO 


=POPINIPININPININPINININININININININININININIDD 2 2 2 9 ee 


PAAA AAO 


SGOOCSCOCOOOCOOCOSoOooOoO 
PPPS PSUS SASS SISTIII 
0000000900098 SI NIN NINN NN NNO Om 


ww 
o- 


15 
Analyze/Media Bad Block Manipulation Procedures 18-4 -1984 23:36:34 AX-11 Bliss-32 v4. 
Convers {on and Formatting ping rb = p44 Hn $7 :30:35 8 AD 


Or oeg 
14-Sep-19 AD. SRCJBADBLOCKS .B32; 


ROUTINE Cvt_log_phy (lbn, addr) = 
i 


Functional Description: 


Convert Logical Block Number to a Physical Address 
Inputs: 
Lon val the logical block number to convert 
: Outputs: 
: addr adr the address of the longword to receive the 
physical address. 
lee 
BEGIN 
MAP 
addr : REF SBBLOCK; 
LOCAL 
cyl, 
sec, 
trk, 
blk : VECTOR (2, LONG); 
BUILTIN 
EDIV; 
blk £9} = ,lbn * .bad$gb_block_fact; ! Scale the logical block 
blk C1) = 0; ! number by the blocking factor. 
EDIV (bad$gl_sectors, blk, blk, sec); ! Extract the sector number. 
EDIV (bad$gl_tracks, blk, cyl, trk); ' Extract the cylinder and track numbers. 
-addr = .trk “24 OR ! Format into last track entry. 
-sec “16 OR ! 31 16:15 0 
a? fee ' fomaptanaepowrnwoen 
RETURN TRUE; !' jtrkisec: cyl : 
' rn oe + 
END; ! of ROUTINE cvt_log_phy 
0004 00000 CVT_LOG_PHY: 
«WORD Save R2 
5E ge 000 SUBL2 
50 00006 CF 9A 0000 MOVZBL BADSGB BLOCK_FACT, RO 
7E 04 AC C5 QOO00A MULL RO, LBA, BLK 
gf AE bs OOOF CLRL BLK+ 
g 6E 0000G CF 7B ang EDIV BADSGL_SECTORS, BLK, BLK, SEC 
43 0000G CF 7B 0001 EDIV BADSGL_TRACKS, BLK, CYL, TRK 
: 5 18 78 00020 ASHL #24, RO, RO 
1 51 10 78 00024 ASHL #16, RI, RI 
51 50 ¢8 00028 si ste ° 
BC 51 52 C9 00028 BISL CYL, R1, @ADDR 


15 
BADBLOCKS Analyze/Media Bad Block Mani tion Proced 4 $1984 23:36:34 AX-11 Bliss-32 V4.0-74 2 7 | 
rivet Conversion and lernstting rations apenas 12-808-1 98 97:36:35 {BAD .SRC BADBLOCKS o32- age 44) 
50 01 80 $0079 MOVL #1, RO ; 0583 
4 000 RET ; 0585 


; Routine Size: 52 bytes, Routine Base: SCODES + 0172 


476 0586 1 


Analyze/Media Bad Block Manipulation Procedures 18-5e0-1 
Conversion and Formatting routines 


02300-1382 #7 538533 


AX-11 Bliss-32 V4.0-7 
BAD.SRC BADBL OCKS 032; 


Format tote.8 non last track entry. 
16115 8:7 0 


Save nothing 
ENTRY, RO 
LBN, 2(RO) 


LBN+2, (RO) 
ENT. {(R0) 


; 47 7 1 ROUTINE cvt_long_nit (lbn, cnt, entry) : NOVALUE = 
§ pi 
5 ih 30 | Functional Description: 
: 48 336 1 Convert a pair of long words eset a a@ Logical Block Number and a 
; Z ¢ 287 } count value into a non Last track bad block entry. 
: 6 595 1: Inputs: 
; 48 238 1! 
3 rts 2 ! Lbn val the logical block number 
; rH 2 1! cnt val the count of contigous bad blocks 
; 491 00 1! 
3 ‘3 ] ! Outputs: 
: 494 603 1: entry adr the address of the longword to receive the value. 
; 495 0604 1! 
3 rs 0605 1 !-- 
; 49 S606 BEGIN 
: 498 060 MAP 
; 499 0608 entry : REF SBBLOCK; 
; 500 0609 
; $01 0610 entry Enlt_w_lowlbn] = .lbn <0,16>; ! 
; 50 0611 2 entry Enit _ “highlbn] = .lbn <16, &>; i 34 
5; pole entry (nit_b_sectorcnt] = .cnt 4. 8>; ! 
; 504 061 ! 
; 505 0614 ' 
; 506 0615 1 END; ! of ROUTINE cvt_long_nit 
0000 00000 CVT LONG 1; 
50 0c AC DO 00002 MOVL 
02 Ad 04 AC BO 00006 MOVW 
60 06 AC 90 00008 MOVB 
01 AO 08 AC 90 0000F MOVB 
04 00014 RET 

; Routine Size: 21 bytes, Routine Base: S$CODE$S + 01A6 
; 507 0616 1 


a ene 


no 


Be ee Oe BH Se Oe Be Ge Se Se Se FH Se SH Se Oe Se FH Se Se Se Be Ss Ge Ss Ss Se SF Se Se Oe G5 S55 Ss Se ee Ge SH Se Se Sees ese Ss 
Pd 
wy LUPUS SSUES ISIS 4 
NAME WN (OO ONOU FWD SO OONAUEWIN OO 
~ 
nw 


SEP ew 
o 


MFwh—o 


Seah ah ab-bh hal 


544 


— 
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Analyze/Media Bad Block Manipulation Procedures 18-5e -1984 23:36:34 AX-11 Bliss-32 v4.0-742 P 
insert. blocks -- Insert the Spec fied bad block 12-86-1984 $7 520:35 j 1 ret 


17 


Rtatatatats FS 
GEREUGSSVSVERRAVS 5m 


= PIPIPIPIARY HWA IRI PPO PININPO PU PIPOIPYNPUR) 2 3 tt tt tt 


SESSSSSSSES 


333333333; 
DONAULSWN —O OONOULS WIN OO 


PIPPI 


SLASSESRESRE 
—ovo 


BAD.SRC 


ZSBTTL ‘insert_blocks <= Insert the specified bad blocks into the SDBSF* 
ROUT INE insert_Blocks (entry, cnt) : NOVALUE = 


BADBLOCKS .B32; 


Functional Description: 


Insert the specified bad blocks into the SDBSF. Call the appropriate 
conversion routines to convert the lbn into the required format. 


Inputs: 
entry val the block number to insert into the SDBSF. 
cnt val the number of contiguous blocks to mark bad. 


Side Effects: 


The entry (block number) and count will be converted to the appropriate 
format before insertion into the SDBSF. If the SDBSF becomes full during 
any stage of the analysis, we will STOP (via a SIGNAL_STOP) and inform 
the user of the problem. 


new_entry; 


If .bad$gl_sdbsf_ptr GEQU .bad$ga_sdbsf + bad$k_page_size ! Have we reached the end of the bad block file? 
! If we did, inform the user that the medium or 


SIGNAL_STOP (bad$_bbfovf, 1, bad$ga_device); ! device is potentially unreliable. 
Fret senses Cctx_v_ltdevice] ! Last track device? 
evse ey = t09-PhY (.entry, new_entry) ! Convert this block to a physical address. 


BEGIN 
cvt_long Bst Ente b: cnt, new_entry); 


Convert the range to non Last track entry. 
bad$ga_sdbsf (nit_b_usedbbdscJ]™= 
. -bad$ga_sdbsf [nlt_b_usedbbdsc] + 2; 


Update used descriptor count. 


sbodtel sdbat ptr = phew entry: ! Append the new entry to the file. 
bad$gl_sdbsf_ptr = .bad$gl_sdbsf_ptr + 4; ! Update the next free entry pointer. 
END; ! of ROUTINE insert_blocks 


0000 00000 INSERT_BLOCKS: 
WORD 


Save nothing ; 0618 


5E 04 C2 999 SUBL : 

50 00006 CF 00000200 8F C1 0000 ADDL3 #512, BADSGA_SDBSF, RO > 0644 
0 00006 CF 01 0000F CMPL  BADSGL_SDBSF-PTR, RO : 
13 1F 00014 BLSSU. -1$ ; 

00006 CF 9F 00016 PUSHAB BADSGA_DEVICE > 0646 


——<——$ 


15 
BADBLOCKS Analyze/Media Bad Block Manipulation Procedures 1b-22 501 ~ 36:34 AX-11 Bliss-32 V4.0-74 Page 20 
$Oe=000 insert blocks == Insert the Soeeii ied bad block 12-36-1984 ig tBAD. SRC JBADBLOCKS .832; : 135 
1 OO 1A PUSHL 3 
000000006 8F DD 1 SHL ADS att OvF : 
000000006 00 3 Fe 3 CALLS rqaos $STOP : 
08 00006 cf E 1$: BLBC erbseee SCONTEXT#1, 2$ + 0648 
E 0D 000 PUSHL eee ; 0650 
06 ac DD 38 PUSHL ; 
80 «AF 0 4 CALLS ee (VT_LOG_PHY : 
1 1 83 BRB 3 ‘ 
5E 0 039 2$ PUSHL SP 3 0653 
7E 04 as D 000 MOVa bee (SP) : 
A& AF 0 F 003F CALLS cyt LONG_NLT $ 
50 00006 cf p 0043 OVL BASsGh SbBSF; RO > 0654 
oe AO 2 004 ADDB2 (R 3; 0655 
000 DF DO 0004C 3S: MOVL NEW_ENTRY, @BADSGL_SDBSF_PTR : 0658. 
0000G CF CO 00051 ADDL2 4, “BADSGL_ SDBSF _PTR : 0659 
04 00056 RET 3; 0661 


; Routine Size: 87 bytes, Routine Base: SCODE$S + 0188 


; 556 0662 1 


” 


Lookup_bad <= Look up entry in bad block file(s 14-Sep-1984 BAD.SRCJBADBLOCKS.B832; 


2 OB 


15 
BADBLOCKS Analyze/Media Bad Block Manipulation Procedures 18-52 -1984 23:36:34 AX-11 Bliss-32 V4.0-74 P 1 
Wo%=b00 : t : $7536 :35 j age 4g) 


ZSBTTL ‘lookup _bad == Look up entry in bad block file(s)‘ 
ROUTINE lookup_Bad (entry, buffer) = 


; 1 

; 1 

: : 

; 561 rats ! Functional Description: 

; o¢ 4 1 ! Look up the entry(ies) in the bad block buffer. 

; 564 5 4 : If the entry exists, RETURN TRUE; ELSE FALSE. 

; 565 0672 1! The above is true also in the case of a non last track device, 

3 3 0675 1! if the block already exists in the bad block file as implied 

3 207 0675 : within a bad block cluster descriptor. 

; re 76 1! Inputs: 

; 570 0677 1! 

3 27) gore : entry val the block number to look up the in bad block file. 
3 378 0680 1! buffer adr the address of the bad block file to search for the 
s 37% 0681 1! entry provided above 

3 tT set) 1! 

; 76 0683 1 ! Routine Value: 

3 Sf 0684 1! 

3; 37 0685 1! TRUE If the block is found within the given bad block file, 

; 579 0686 1! 

; 580 0687 1! FALSE otherwise. 

; 581 0688 1! 

3 286 0689 1 !-- 

; 3 0690 BEGIN 

; «584 0691 LOCAL 

; 585 069 match; 

; 586 069 

; 587 0694 match = FALSE; 

3 268 0695 > 

; we 0696 IF .bad$gl_context Cctx_v_ltdevice] ! Last track device? 
; 590 0697 THEN 

; 591 0698 BEGIN 

; 592 0699 MAP 

; 395 0700 buffer : REF VECTOR C, LONG); ! For ease of reference. 
> 594 0701 

s 59 fa AL 

; 298 070 Ltentry; 

; 59 0704 

; 598 0705 cvt Log_phy (.entry, ltentry); ! Convert the LBN to Lt fmt. 
; 3708 INCR ptr FROM .buffer + Ltk_k_headersiz ! Examine each of the bad 
; 600 07 TO .buffer + bad$k_page_size / 4 - 2 ! blocks Listed. 

; 601 0708 BY 4 

3 $08 0709 DO 

: 60 Brie 4 BEGIN ' Look for a match or the 
: 604 711 4 IF ..ptr EQL .Ltentry ! end of the file. 
; 605 ore 4 THEN 

; 606 071 5 BEGIN 

: 607 0714 5 match = TRUE; ! We found a match. 
; 608 0715 5§ EXITLOOP; 

; 609 b718 4 END; 

; 610 717 4 

5 6) o78 4 IF ..ptr EQL -1 

: 612 0719 4 THEN ! No match found. 


Bape. orks erat yoormasts Bad Block Manipulation Procedures oe bs 4 > 36:38 AX-11 Bliss-32 V4.0-74 Page 4 


lookup_bad -- Look up entry in bad block file(s 14-Sep-1984 4:22 BAD. SRCJBADBLOCKS .832; 
; 613 720 BEGIN 
3; 614 721 match = FALSE; ! End of file encountered. 
: 6) 7 ¢ EXITLOOP; 
3 6 7 4 “_ 
3 6) 726 
; 618 725 
; 619 7 § ELSES” 
; 620 7 scsi 
; 621 7 : 
3; 6 ¢ 7 buffer : REF S$B8BLOCK; 
; 6 0730 
; 624 731 LOCAL 
; 625 7 ¢ cnt, 
: 858 $F82 a 
3 . ; of 5 cer Cnlt_b_usedbbdsc] NEQ 0 ! Are there any bad btocks on file? 
; £¢3 O73 INCR ptr FROM .buffer + ate headersiz ! Examine only the used bad block 
; $3] b7 a5 ebuffer + nlt_k_héadersiz + ' descriptors. 
; 6 ¢ 0739 4 (.buffer Cnlt_B_Usedbbdsc] * 2-4) ! -_ number of bad ey descriptors 
3s 63 074C ; By 4 ! olvers 9 stored as a multiple of 2 
3 os 15g ? DO aoaaes ' (Compati iit for Ops-1- and oDs-2) 
; 636 Pk 4 bad$cvt_nlt_long (..ptr, cnt, Lbn); ! Convert the descriptor into a 
; 637 0744 4 IF .entry CEQU .Lbn + .cnt ' starting logical block number 
; 638 0745 4 AND .entry GEQU .Lbn ' and a count, then see if the 
; 639 0746 4 THEN ! entry is within the described 
; 640 0747 5 BEGIN ! range of contiguous bad blocks. 
3; 641 0748 5 match = TRUE; ' Set match found and return. 
3 ote 0749 5 EXITLOOP; 
; 64 0750 4 END; 
3 644 0751 END; 
3; 645 fat) ' 
3; 646 075 : If there are no bad blocks on file or we did not match a block described 
; 647 0754 ! within the range specified in the bad block descriptor, then we will 
; 648 0755 ' return FALSE. 
3 649 0756 ‘ 
; 650 0757 END; 
3; 651 0758 — match; 
s 652 0759 1€E ' of ROUTINE lLookup_bad 


001C 00000 LOOKUP_BAD: 
. WORD 


Save R2,R3,R4 : 0664 
5E o¢ C2 0000 SUBL2 #12, SP ; 
5 D4 0000 CLRAL TCH 3 0694 
52 08 AC DO 00007 MOVL BUFFER, R2 > 0706. 
2E 00006 cr £9 90008 BLBC BADSGL_CONTEXT+1, 3$ > 0696. 
E DD 00010 PUSHL SP a : 0705 
06 AC DD 0012 PUSHL : 
FF46 cf 02 FB 991 CALLS 6 a8 LOG. PHY : 
1 7E Ad 9E OOOIA MOVAB i : 0707 
50 04 A2 9E OO1E MOVAB : 0711 
11 0002 BRB : 


ee Oy 


ss 


BADBLOCKS Analyze/Media Bad Block Manipulation Procedures 1$-5e “19 3:36:34 AX-11 Bliss-32 V4.0-742 
v04 Lookup. bad == Look up entry an bad block file(s 122805-1 984 #7 :30:33 EBAD.SRC BADBLOCKS.832;1 
6E 60 D 024 1$: CMPL (PTR), LTENTRY 
41 1 027 BEQL 
FRFEFFFFF 8F 0 ? 029 CMPL (PTR), #1 
4 12 000 BNEQ 2 
a 
FFE8 50 04 } 4 + C 23: oe R1, #4, PTR, 1$ 
50 02 Ae 9A QOO3SE 3S: MOVZBL giR2). RO 
31 13 0004 BEQL $ 
54 6289 7 004 MOVAW (R2)CROJ, R4 
25 1 ppee Bra 6$ 
046 AE 99F OO04A 4$: PUSHAB LBN 
0c AE 9F 00040 PUSHAB CNT 
62 DD 00050 PUSHL (PTR) 
FED! CF 0 FB 80036 CALL #3, BADSCVT_NLT_LONG 
50 04 AE 08 AE C1 0005 ADDL3 CNT, LBN, R 
50 04 AC 01 0005D CMPL ENTRY, RO 
OC 1A 00061 BGTRU $ 
04 AE 04 AC D1 00063 CMPL ENTRY, LBN 
05 1F 00068 BLSSU $ 
53 01 DO GO06A 5$: MOVL #1, MATCH 
06 11 0006 BRB 7 
FFDS 52 04 54 F1 OOO6F 6$: ACBL R4, #4, PTR, 4$ 
50 53 pO 00075 7$: MOVL MATCH, RO 
04 000 RET 


; Routine Size: 121 bytes, Routine Base: S$CODE$S + 0212 


; 653 0760 1 


ey 


Bete Se Se Be Se Se Se Se Se Ge Se Se Fe Be Se Se Ge Fe Ge Ge Ge Se Ge Be Se 


15 
BADBLOCKS Analyze/Media Bad Block Manipulation Procedures 18-52 1984 23:36:34 AX-11 Bliss-32 V4.0=-74 
y04~000 check. for. DLkO -- See if entry is block zero 14-Sep-19 4 #7 :30:33 {BAD - SREIBADBLOCKS..832: 


3 761 1 ZSBTTL ‘check_for_blkO <= See if entry is block zero’ 

; fe : ROUTINE check_for_Blk0 (entry) : NOVALUE a 

3 764 1! 

3 £9? : Functional Description: 

3 59 1! See if the entry sought is block zero. If it is, we set an 

; 768 1: internal flag in the context bits and record it in the SDBSF. 

3 769 1! The user is warned when we exit (both at SYSSERROR and in the 

3 0770 1! Listing if one was requested) that block zero is bad and the 

$ Or : } medium should not be used as a system device. 

: 773 1°! Inputs: 

3 0774 1! 

3 0775 1! entry val the block number to check. 

3 0776 1! 

; gre : Side Effects: 

5 0779 1! If the block number is zero (0), then the context bit (blkObad) 
; 0780 1! will be set true. 

; 0781 1 

3 0782 1 !-- 

3 078 BEGIN 

3 0784 

3 A 3 entry : REF VECTOR C, LONG); 

; 0787 IF ..entry EQ. 0 

3 0788 THEN 

; 0789 BEGIN : 
3 tas 5 pedtgt content Cctx_v_blkObad] = TRUE; ! Flag block 0 is bad! 
: 0792 1 END; ! of ROUTINE check_for_blk0 


0000 00000 CHECK_FOR_BLKO: 
QORD 


P Save nothing 
04 BC 05 0000 TSTL @ENTRY 
05 12 0000 BNEQ 1$ 
0000G CF 02 a1 382 #2, BADSGL_CONTEXT 


88 00007 
04 0000C 1$: 
; Routine Size: 13 bytes, Routine Base: S$CODE$ + 0288 


687 0793 1 


Pete Fete Se 


esas 


689 


71 


MINONONIND 3 3 
UFWN "SO OONOUS 


SN NSN NNN NS 
Mrnon 


ANNAN 
Ww 
Wn 


Anal 
bad$ 


oOo 


PAR HOD NONE UN SOOO NAME WI ODS NE ROO 


00000 
eee 
Wr —O 0Oo~ 


OOooCoooo 
SErere 


15 
ze/Media Bad Block Manipulation Procedures 15-Sep-1984 93:36:38 
nit buffers -- Initialize the contents of 14-Sep-1984 11:54:22 


AX-11 git ety: V4.0=74 
BAD. SRC JBADBLOCKS .832; 


*padSinit_buffers -=- Initialize the contents of the data buffers’ 
GLOBAL ROUTINE bad$init_buffers (pattern) : NOVALUE = 


Page $5 
1 ZSBTTL 
' 
Functional Description: 
Initialize the contents of the data buffers with the given test pattern. 
Inputs: 


pattern val the test pattern used to initialize the contents 


of the buffers. 
Side Effects: 


The two data buffers and the test pattern buffer will have their contents 
initialized to the pattern specified. 


-bad$ga_bufadr 
LOCAL 


tpb_boundary, 
buf boundary; 


Compute the test pattern buffer 


tpb_boundary = bad$k pege.size 44-1; e 
m and the data buffer's boundaries. 


buf_boundary : .bad$g 
IF ACTUALCOUNT () NEQ 0 
THEN 


rnsfricnt / 4 = 1; 


Use the supplied test pattern. 


BEGIN 
INCR Loc FROM_O TO .tpb_boundary 
DO bufO C.loc] = .pattern; 


INCR Loc FROM 0 TO .buf_boundary 
DO bufl C.loc] = buf2 C.loc] = .pattern; 


Fill the test pattern buffer. 


Fill the data buffers. 
Use the pattern supplied in the data vector. 


BEGIN 
INCR Loc FROM 0 TO .tpb_boundary 
BY .bad$gb_term_count 
DO INCR offset FROM 0 TO .bad$gb_term_count - 1 P 
DO IF (.loc + .offset) LEQ .fpb_boundary ! Be sure we're still within the buffer’s boundary. 
THEN bufO C.loc + .offset] = .bad$gl_bad_term [.off 
ELSE EXITLOOP; ! We're done. 


Fill the test pattern buffer, : 
compute the offset to the next location. 


INCR Loc FROM 0 TO .buf_boundary 
BY .bad$gb_term_count 
DO INCA oP foot FROM 0 TO .bad$gb_term_count - 1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 BEGinN 
BUILTIN 
ACTUALCOUNT; 
BIND 
buf0 = .bad$ga_tpb : VECTOR C, LONG], 
bufl = .bad$ga_bufadr C0] =: VECTOR C, LONG], 
4) ee C, LONGI; 
F (.loc + .offset) LEQ .Buf_boundary 


Fill the data buffers. 

Compute the offset. 

And move the pattern. | , 
Be sure we're still within the buffers’ boundaries 


ee 
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BA KS Analyze/Media Bad Block Manipulation Procedures 18.36 “19 7:36:34 AX=-11 Bliss-32 v4.0-74 
Rive, bods tait butters oo Initialize the contents of 12-808-1 38 $7 :30:35 {BaD .SRC BADBLOCKS .832; 

. 74 THEN buf! C.loc + .offset] = buf2 C.loc + .offset] = .bad$gl_bad_term [.offset) 
3 (P6 ELSE EXITLOOP; 

He Ft ak oe 

; 750 He END; ! of GLOBAL ROUTINE bad$Sinit_buffers. 


007¢ 000 .ENTRY BADSINIT_BUFFERS, Save R2,R3,R4,R5,R6 
54 7F «6 8F OO 0 MOVZBL #127, T ARY 
51 00006 CF 4 C7 DIVLS #4, BADSGC_TRNSFR_CNT, R1 
1 7 0c DECL § BUF_BOUNDARY 
C 3 00 TSTB CAPT 
A 13 0001 BEQL $ 
56 1 CE 0001 MNEGL #1, LOC 
7 11 0001 BRB 
0000GDF40 04 Ac 09 00017 1$: MOVL PATTERN, @BAD$GA_TPBLLOC] 
FS 50 54 OF 9001 2s: AOBLEQ TPB_BOUNDARY, LOT, 1$ 
50 o1 CF 000 MNE GL #1, LOC 
52 04 AC DO 00027 3$ MOVL = PATTERN, R2 
0000GDF4 52 DO 00028 MOVL Re. @BADSGA_BUF ADR+4(LOC) 
0000GDF 40 52 00 00031 MOVL 2, @BAD$GA BUF ADRCL OC 
EC 50 51 FF S003 4$ AOBLEG BUF _BOUNDARY, LOC, 3$ 
55 00006 CF BR 003C 5$ MOVZBL BADS$GB_TERM_COUNT, R5 
56 FF As 9 9004 NOVA -1(R5)> R6 
1— 11 $094? BRB 10$ 
52 01 CE 90049 6$ MNEGL #1, OFFSET 
12 11 0004C BRB 
53 50 52 C1 O004E 7$ ADDL3 OFFSET, LOC, R3 
54 53 D1 0005 CMPL 3, TPB_BOUNDARY 
0D 14 0005 BGTR 9% : 
0000GDF 43 Q000GCF42 D 90057 MOVL BADSGL BAD_TERMLOF FSET, @BADSGA_TPBLR3) 
5 § RE ar 
54 50 (D1 $00? 10$:  CMPL LOC, TPB_BOUNDARY 
DD 15 0006A BLEG = «4@$ 
30 p4 006C eee 
1 006 BRB 1 
53 1 cE 00 11$ MNEGL Hi OFFSET 
: 7 BRB 1 
52 50 2 Ci 00075 128 ADDL3 OFFSET, LOC, R2 
51 32 pi 9079 CMPL Re BUF _BOUNDARY 
54 ooo0ccr as DO 0007E MOVL § BADSGL_BAD_TERMCOFFS 13 RG 
0000GDF4 34 D0 00084 MOVL R4&, @BAD$SGA_BUFADR+4(R2) 
O000GDF 4 4 D 008A MOVL RG, @BADSGA_BUF ADRLR 7} 
£1 5 26 F3 00090 13$ AOBLEQ R6, OFFSET, 12S 
50 55 ¢ 0094 14$ ADDL L 
51 50 D1 00097 15$ CMPL of, BUF _BOUNDARY 
D4 15 OOO9A BLEG 1$ 
04 0009C RET 


Page 


a8 


------ 


| 


' 


i 
i 


‘Voe=boo 


; Routine Size: 


SPLITS 
SCODES 


File 


-$255$DUA28: CSYSLIBILIB.L32;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:BADBLOCKS/OBJ=OBJ$:BADBLOCKS MSRC$:BADBLOCKS/UPDATE=(ENH$:BADBLOCKS) 


Lexemes/CPU-Min: 


Used: 


bad 
157 bytes, 


1 
1 END 


0 ELUDOM 


Routine Base: 


! of MODULE badblocks 


PSECT SUMMARY 
Bytes 


rw 


Library Statistics 


ae -- Symbols 


Total 
18619 


2 NOVEC,NOWRT, 
1 NOVEC,NOWRT, 


SCODES + 0298 


RD , 


Loaded 
3 


COMMAND QUALIFIERS 


821 code + 32 data bytes 


111 pages 


r 
Compilation Complete 


16 
inal y2q (Media Bad Block Manipulation Procedures 15-Sep-19 
nit_buffers -- Initialize the contents of 14-Sep-19 


Attributes 


RD ,NOEXE,NOSHR, 


EXE ,NOSHR, 


Percent 
0 


AX=11 Bliss-32 V4.0-74 
BAD. SRC JBADBLOCKS .B32; 


-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, 
LCL, 


REL, 
REL, 


Pages 
Mapped 


1000 


Processing 
Time 


00:01.4 


Page 48) 


=e Eee eee: O_O 


0017 AH-BT13A-SE EQUIPMENT CORPORATION 
tf VAX/VMS V4.0 NTIAL -AND PROPRIETARY 


